home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 10 / AACD 10.iso / AACD / Resources / System / BoingBag1 / Workbench / S / CloseAllDrawers.rexx
OS/2 REXX Batch file  |  1999-12-21  |  248b  |  17 lines
  1. /*
  2.    $VER: CloseAllDrawers.rexx 1.0 (21.12.99)
  3.  
  4.   closes all drawers except root.
  5. */
  6.  
  7. options results
  8.  
  9. address WORKBENCH
  10.  
  11. GETATTR WINDOWS STEM WINDOW
  12.  
  13. do i = 0 to WINDOW.count-1
  14.   IF WINDOW.i ~= "root" THEN
  15.     WINDOW '"'||WINDOW.i||'"' CLOSE
  16. END
  17.